home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / RunALL < prev    next >
Text File  |  1994-12-13  |  2KB  |  13 lines
  1. /**************************************************************************\
  2.               $VER: RunALL, v2.0 (13-Dec-94) by Dotoran!
  3. \**************************************************************************/
  4. options results;tr=transmit;se=sendstring;gu=getuser;gc=getchar;gu 1302307;t=upper(result);gu 1302368;f=result;if index("ACDP",t)=0&t>"" then signal HELP
  5. if t="" then do;se "n1q1Run [c6Aq1]rexx, [c6Cq1]NetC, [c6Dq1]os or [c6Pq1]aragon? [c6HELPq1]: c6";gc;t=result;z=index("ACDP",t);tr word("Help ARexx CNetC DOS Paragon",z+1)
  6. if z=0 then signal HELP;se "n1q1Enter <c6pathq1/c6filenameq1> to Run: c6i 40}";gu 70;f=result;if f="" then signal HELP;if ~exists(f) then do;tr "n1The file `"f"' could not be found!";exit;end;end
  7. tr "f1n9Running "word("ARexx CNetC DOS Paragon",index("A0 C2 D4 P6",t)%3+1)" file `"f"' now...n1";if t="A"|t="0" then tr "#0"f"}";if t="C"|t="2" then tr "#2"f"}";if t="D"|t="4" then tr "#4"f"}";if t="P"|t="6" then tr "#6"f"}";exit
  8. HELP:;tr "n1c6RunALL Commandq1, v2.0 by cdDotoranq1!n1";tr "Format: c6RUNq1>f>e(Ask for type and path/file info)";tr ">8c6RUN ?q1>f>c(Display this helpful text again)"
  9. tr ">8c6RUN [ 0 | A ] <path/file>q1>7(Launch ARexx   file `path/file')";tr ">8c6RUN [ 2 | C ] <path/file>q1>7(Launch CNetC   file `path/file')"
  10. tr ">8c6RUN [ 4 | D ] <path/file>q1>7(Launch DOS>5file `path/file')";tr ">8c6RUN [ 6 | P ] <path/file>q1>7(Launch Paragon file `path/file')"
  11. /** Last Edited: 13-Dec-94 ************************************************\
  12. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  13.